home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / INDENT.ELC < prev    next >
Text File  |  1993-03-28  |  5KB  |  61 lines
  1. ;;; compiled by @win386 on Sat Mar 13 01:38:20 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/prim/indent.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (fset 'indent-according-to-mode #[nil " ç" [indent-line-function] 1 "\
  14. Indent line in proper way for current major mode." nil])
  15. (fset 'indent-for-tab-command #[nil "┴=½â┬ ç ç" [indent-line-function indent-to-left-margin insert-tab] 2 "\
  16. Indent line in proper way for current major mode." nil])
  17. (fset 'insert-tab #[nil "½â┴ ê\n½â├cç i ÑT_jç" [abbrev-mode expand-abbrev indent-tabs-mode 9 tab-width] 3])
  18. (fset 'indent-rigidly #[(start end arg) "èbê┴ \nbên¼â├yê`W½₧─ `╞╟wê`|êl¼è╚╔\n\\]╔\"ê)├yê¬]╟ëôê╟ë )ç" [end point-marker start 1 current-indentation indent "     " nil indent-to 0 arg zmacs-region-stays] 4 "\
  19. Indent all lines starting in the region sideways by ARG columns.
  20. Called from a program, takes three arguments, START, END and ARG." "r\np"])
  21. (fset 'indent-to-left-margin #[nil "└     U«£┬è─yê`┼┬wê`|ê    jê`)` W¡é b)ç" [current-indentation left-margin nil epos 0 "     "] 3])
  22. (defvar indent-region-function nil "\
  23. Function which is short cut to indent each line in region with TAB.
  24. A value of nil means really perform TAB on each line.")
  25. (fset 'indent-region #[(start end arg) "¼╒    ½ñè\nbê├  bê┼    !`\nW¡Ä╟!¼â    cê╚yê¬m*ç    ½å     \n\"çè\nbê├  bên¼â╚yê`\nW½ë\n ê╚yê¬r\n╦ëô)ç╠!è\nbê├  bên¼â╚yê`\nW½ò`═╦wê`|êl¼à╬╧\"ê╚yê¬f\n╦ëô)ç" [arg fill-prefix end point-marker start regexp-quote regexp looking-at 1 indent-region-function indent-line-function nil prefix-numeric-value "     " indent-to 0] 3 "\
  26. Indent each nonblank line in the region.
  27. With no argument, indent each line with TAB.
  28. (If there is a fill prefix, make each line start with the fill prefix.)
  29. With argument COLUMN, indent each line to that column.
  30. Called from a program, takes three args: START, END and COLUMN." "r\nP"])
  31. (fset 'indent-relative-maybe #[nil "└┴!ç" [indent-relative t] 2 "\
  32. Indent a new line like previous nonblank line." nil])
  33. (fset 'indent-relative #[(&optional unindented-ok) "½â┴ êi┬è┼yê╞╟┬╚#½▒è╔yê`)\n╦ !êi V½ä╠╔!ê═╬!¼ë¼à╨\nwê╤\nwê`\nU¼éi)) ½ú╥ `╤┬xê`|ê╘ ┼\"ê`V½äbê┬ëô)¬é╒ *ç" [abbrev-mode expand-abbrev nil indent start-column 0 re-search-backward "^[^\n]" t 1 end move-to-column backward-char looking-at "[     ]" unindented-ok "^     " "     " point-marker opoint indent-to tab-to-tab-stop] 4 "\
  34. Space out to under next indent point in previous nonblank line.
  35. An indent point is a non-whitespace character following whitespace.
  36. If the previous nonblank line has no indent points beyond
  37. the column point starts at, `tab-to-tab-stop' is done instead." "P"])
  38. (defvar tab-stop-list '(8 16 24 32 40 48 56 64 72 80 88 96 104 112 120) "\
  39. *List of tab stop positions used by `tab-to-tab-stops'.")
  40. (defvar edit-tab-stops-map nil "\
  41. Keymap used in `edit-tab-stops'.")
  42. (byte-code "¼Å┴ ┬├─#ê┬┼─#ê┴ç" [edit-tab-stops-map make-sparse-keymap define-key "" edit-tab-stops-note-changes ""] 4)
  43. (defvar edit-tab-stops-buffer nil "\
  44. Buffer whose tab stops are being edited--in case
  45. the variable `tab-stop-list' is local in that buffer.")
  46. (fset 'edit-tab-stops #[nil "p┴┬├!!ê─!ê╞╟!ê╚╔╩!ê╦ ═ êë½Æ╨@╤\"ê╥cêAë¼n)╤╘cê╒W½æ╓\\cê╫cêTë¬k╘cê╤V½ï╪cêSë¬q)┘cêebç" [edit-tab-stops-buffer switch-to-buffer get-buffer-create "*Tab Stops*" use-local-map edit-tab-stops-map make-local-variable indent-tabs-mode nil overwrite-mode 1 t truncate-lines erase-buffer tab-stop-list tabs indent-to 0 58 count 10 8 48 "         " "0123456789" "\nTo install changes, type C-c C-c"] 4 "\
  47. Edit the tab stops used by tab-to-tab-stop.
  48. Creates a buffer *Tab Stops* containing text describing the tab stops.
  49. A colon indicates a column where there is a tab stop.
  50. You can add or remove colons and then do C-c C-c to make changes take effect." nil])
  51. (fset 'edit-tab-stops-note-changes #[nil "└è┬bê└ê├─└┼#½åi    B¬s)╞p╟!ê!ê        )╩╦!ç" [nil tabs 1 search-backward ":" t bury-buffer switch-to-buffer edit-tab-stops-buffer tab-stop-list message "Tab stops installed"] 4 "\
  52. Put edited tab stops into effect." nil])
  53. (fset 'tab-to-tab-stop #[nil "½â┴ ê\në½îi @Y½å Aë¼t ½à @j¬é─c)ç" [abbrev-mode expand-abbrev tab-stop-list tabs 32] 3 "\
  54. Insert spaces or tabs to next defined tab-stop column.
  55. The variable `tab-stop-list' is a list of columns at which there are tab stops.
  56. Use \\[edit-tab-stops] to edit them interactively." nil])
  57. (fset 'move-to-tab-stop #[nil "ë½îi    @Y½å    Aë¼t    ¡à┬    @├\")ç" [tab-stop-list tabs move-to-column t] 4 "\
  58. Move point to next defined tab-stop column.
  59. The variable `tab-stop-list' is a list of columns at which there are tab stops.
  60. Use \\[edit-tab-stops] to edit them interactively." nil])
  61.